Mac Power 1997 December/MACPOWER-1997-12.ISO.7z/MACPOWER-1997-12.ISO/MacPowerオリジナル/Edutainment World/チャンプジム for DEMO/DIR/DataAccess.cst/00002_Script_Tool Script

Text File | 1997-09-29 | 2KB | 85 lines

--*****************************************************
--  ﾉ菲Xﾉgﾇ晢ð鴕óﾒﾇ⒰應ﾝﾅiﾉfﾉ菲~ﾉ^ﾇﾕCRﾅj
--*******************************************
on ArryToString arry

  set rbuf = ""
  set cnt = count(arry)

  set rbuf = getAt(arry,1)
  repeat with i=2 to cnt
    set rbuf = rbuf & NumToChar(13) & getAt(arry,i)
  end repeat

  return rbuf

end
--*****************************************************
--  ïð鴕óﾒﾇ數菲Xﾉgﾇ⒰應ﾝﾅiﾉfﾉ菲~ﾉ^ﾇﾕCRﾅj
--*******************************************
on StringToArry buf

  set arry = []
  if length(buf) <> 0 then

    set cnt = the number of lines in buf
    repeat with i=1 to cnt
      add arry,line i of buf
    end repeat

  end if

  return arry

end


--*****************************************************
--  randomSeed躪鷏
--****************************
on UpdateRandomSeed

  set buf = the long time
  set cnt = length(buf)
  set sbuf = ""

  repeat with i=1 to cnt
    if chars(buf,i,i) >= "0" and chars(buf,i,i) <="9" then
      set sbuf = sbuf & chars(buf,i,i)
    end if
  end repeat

  set the randomSeed = value(sbuf)

end


--*****************************************************
--  PrintUsingﾅiﾇW袒êﾍópﾅj
--****************************
on PrintUsing buf

  if stringP(buf) then
    set val = "00000000" & buf
  else
    set val = "00000000" & string(buf)
  end if

  set len = length(val)
  set rbuf = char (len - 7) to len of val

  return rbuf

end